home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / maskprop.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  3.5 KB  |  108 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'MaskProp.pas' rev: 3.00
  6.  
  7. #ifndef MaskPropHPP
  8. #define MaskPropHPP
  9. #include <Dialogs.hpp>
  10. #include <SysUtils.hpp>
  11. #include <Mask.hpp>
  12. #include <DsgnIntf.hpp>
  13. #include <Buttons.hpp>
  14. #include <ExtCtrls.hpp>
  15. #include <StdCtrls.hpp>
  16. #include <Controls.hpp>
  17. #include <Forms.hpp>
  18. #include <Graphics.hpp>
  19. #include <Classes.hpp>
  20. #include <Windows.hpp>
  21. #include <SysInit.hpp>
  22. #include <System.hpp>
  23.  
  24. //-- user supplied -----------------------------------------------------------
  25.  
  26. namespace Maskprop
  27. {
  28. //-- type declarations -------------------------------------------------------
  29. class DELPHICLASS TMaskProperty;
  30. class PASCALIMPLEMENTATION TMaskProperty : public Dsgnintf::TStringProperty 
  31. {
  32.     typedef Dsgnintf::TStringProperty inherited;
  33.     
  34. public:
  35.     virtual Dsgnintf::TPropertyAttributes __fastcall GetAttributes(void);
  36.     virtual void __fastcall Edit(void);
  37. public:
  38.     /* TPropertyEditor.Destroy */ __fastcall virtual ~TMaskProperty(void) { }
  39.     
  40. public:
  41.     /* TObject.Create */ __fastcall TMaskProperty(void) : Dsgnintf::TStringProperty() { }
  42.     
  43. };
  44.  
  45. class DELPHICLASS TMaskForm;
  46. class PASCALIMPLEMENTATION TMaskForm : public Forms::TForm 
  47. {
  48.     typedef Forms::TForm inherited;
  49.     
  50. __published:
  51.     Stdctrls::TEdit* InputMask;
  52.     Stdctrls::TLabel* Label1;
  53.     Stdctrls::TListBox* ListBox1;
  54.     Stdctrls::TLabel* Label2;
  55.     Stdctrls::TLabel* Label3;
  56.     Mask::TMaskEdit* TestEdit;
  57.     Stdctrls::TLabel* Label4;
  58.     Stdctrls::TEdit* Blanks;
  59.     Extctrls::TBevel* Bevel1;
  60.     Stdctrls::TCheckBox* SaveMaskCheck;
  61.     Stdctrls::TButton* Masks;
  62.     Dialogs::TOpenDialog* OpenDialog1;
  63.     Stdctrls::TButton* OKButton;
  64.     Stdctrls::TButton* CancelButton;
  65.     Stdctrls::TButton* HelpButton;
  66.     void __fastcall BlanksChange(System::TObject* Sender);
  67.     void __fastcall InputMaskChange(System::TObject* Sender);
  68.     void __fastcall ListDrawItem(Controls::TWinControl* Control, int Index, const Windows::TRect &Rect, 
  69.         Stdctrls::TOwnerDrawState State);
  70.     void __fastcall ListBoxSelect(System::TObject* Sender);
  71.     void __fastcall FormCreate(System::TObject* Sender);
  72.     void __fastcall MasksClick(System::TObject* Sender);
  73.     void __fastcall HelpButtonClick(System::TObject* Sender);
  74.     
  75. private:
  76.     bool FInEditChange;
  77.     System::AnsiString __fastcall AddBlanks(System::AnsiString Value);
  78.     void __fastcall LoadMaskList(const System::AnsiString FileName);
  79.     
  80. protected:
  81.     System::AnsiString __fastcall GetListMaskValue(int Index);
  82.     System::AnsiString __fastcall GetMaskValue(const System::AnsiString Value);
  83.     virtual void __fastcall Loaded(void);
  84. public:
  85.     /* TCustomForm.Create */ __fastcall virtual TMaskForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner
  86.         ) { }
  87.     /* TCustomForm.CreateNew */ __fastcall TMaskForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(
  88.         AOwner, Dummy) { }
  89.     /* TCustomForm.Destroy */ __fastcall virtual ~TMaskForm(void) { }
  90.     
  91. public:
  92.     /* TWinControl.CreateParented */ __fastcall TMaskForm(HWND ParentWindow) : Forms::TForm(ParentWindow
  93.         ) { }
  94.     
  95. };
  96.  
  97. //-- var, const, procedure ---------------------------------------------------
  98. extern PACKAGE TMaskForm* MaskForm;
  99. extern PACKAGE bool __fastcall EditInputMask(System::AnsiString &InputMask, const System::AnsiString 
  100.     InitialDir);
  101.  
  102. }    /* namespace Maskprop */
  103. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  104. using namespace Maskprop;
  105. #endif
  106. //-- end unit ----------------------------------------------------------------
  107. #endif    // MaskProp
  108.